home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / datetime / datetim2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-09-06  |  748 b   |  27 lines
  1. VERSION 2.00
  2. Begin Form SmallWindow 
  3.    BackColor       =   &H00000000&
  4.    BorderStyle     =   0  'None
  5.    Caption         =   "DateTime"
  6.    ClientHeight    =   210
  7.    ClientLeft      =   360
  8.    ClientTop       =   345
  9.    ClientWidth     =   2880
  10.    ForeColor       =   &H00FFFFFF&
  11.    Height          =   615
  12.    Icon            =   DATETIM2.FRX:0000
  13.    Left            =   300
  14.    LinkMode        =   1  'Source
  15.    LinkTopic       =   "Form1"
  16.    MaxButton       =   0   'False
  17.    ScaleHeight     =   210
  18.    ScaleWidth      =   2880
  19.    Top             =   0
  20.    Width           =   3000
  21. Sub Form_Paint ()
  22.     Cls: Print DatTim$;
  23.     If CurrentX And CurrentX <> Width Then
  24.         Width = CurrentX
  25.     End If
  26. End Sub
  27.